Showvote.asp 云网互动影视系统(12套模版和资源联盟) 6.2 - ASP源码程序

www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Function/Showvote.asp

    <!--#include file="../conn.asp"-->
<!--#include file="Function.asp"-->
<%id=NoSqlHack(request("id"))
Set rs = Server.CreateObject(YWNT_TMS_RS)
set rs=conn.execute("select VoteName from YWNT_TMS_VoteClass where id="&id)
VoteName=rs("VoteName")
rs.close
sql="select * from YWNT_TMS_Vote where Voteid="&id
rs.open sql,conn,1,1
totalcount=0
do while not rs.eof
totalcount=totalcount+rs("VoteNum")
rs.movenext
loop
totalren=totalcount
%>

<head>
<title>投票结果</title>
<style type="text/css">
<!--
td {
	font-size: 12px;
}
-->
</style>
</head>

<body>

<div align="center">
  <center>
  <table border="0" width="600" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" height="73">
    <tr>
      <td width="596" colspan="3" height="23">
        <p align="center"><b><%=VoteName%></b></td>
    </tr>
	<%rs.movefirst
	do while not rs.eof%>
    <tr>
      <td height="23" width="164">
        <p align="center"><%=rs("Vote")%></td>
		<%h=(rs("VoteNum")*300)/totalcount%>
      <td height="23" width="300" valign="middle">
        <table border="0" width="300" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
          <tr>
            <td width="100%"><img src="<%=GetConfig("WebiInstallDir")%>Function/Images/votejd.gif" height="15" width="<%=h%>"></td>
          </tr>
        </table>
      </td>
      <td height="23" width="129">
        <p align="center"><font color=green><%=rs("VoteNum")%></font> 票</td> 
    </tr>
	<%rs.movenext
	loop%>
    <tr>
      <td width="596" colspan="3" height="21">
        <p align="center">共有投票<b><font color=red><%=totalren%></font></b>人次<br></td>
    </tr>
  </table>
  </p>
  </center>
</div>
<%call connclose()%>